home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS047.dsk / CANYON RUN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  80 lines
  1. 1  GOSUB 200
  2. 2  GOSUB 100: GOSUB 6: GOTO 2
  3. 4 : PRINT L$;: NORMAL 385 HTAB 18: PRINT "D";: HTAB 24: PRINT "D": NEXT 
  4. 6  FOR II = 1 TO 20:A = 4 * RND(1) -2: FOR I = 1 TO 7:PO = PO +A * RND(1): IF PO <5  THEN A = 2
  5. 8  IF PO >25  THEN A =  -1.5
  6. 10 ZZ = Z + PDL(1)/80 -1.5: IF  SCRN( ZZ,12) < >2  THEN  GOTO 20
  7. 12  HTAB (1 +Z): VTAB 5: INVERSE : PRINT  CHR$(34): VTAB 24: PRINT L$;: NORMAL 
  8. 14  HTAB ( INT(PO)): PRINT "LLL";: HTAB ( INT(PO) +3 +AA): PRINT "LLL": VTAB 5: HTAB (1 +ZZ): PRINT "2":Z = ZZ:SC = SC +2: NEXT I,II: IF AA = 2 GOTO 6
  9. 16 AA = AA -1: GOTO 6
  10. 18  REM  ** CRASH ROUTINE
  11. 20  HTAB (1 +Z): VTAB 5: PRINT  CHR$(34)
  12. 22  FOR U = 1 TO 25:X =  PEEK( -16336): NEXT U
  13. 24 SC =  INT((SC *B ^.7)/1.5)
  14. 26  VTAB 5: HTAB (1 +ZZ): PRINT ";":Z = ZZ
  15. 28  FOR PP = 1 TO 500: NEXT PP
  16. 30  IF GO >SC +100  THEN IM = IM +.5
  17. 32 N = N +1: IF N = 1  THEN GO = SC: GOTO 36
  18. 34 GO = (GO *(N -1) +SC)/N
  19. 36  IF SC > = HS  THEN HS = SC
  20. 38  POKE 49235,0: VTAB 21: CALL  -958: PRINT "SCORE=";SC/100;"    HIGH SCORE=";HS/100
  21. 40  IF IM >3  AND B <6  THEN IM = 1
  22. 42  IF IM >1  AND B = 6  THEN IM = 0
  23. 44 QU = SC/3 +2 *GO/3 -200 *IM: IF QU <0  THEN QU = 0
  24. 46  IF QU >1798  THEN QU = 1798
  25. 48  PRINT "YOUR RANK IS: ";RA$( INT(QU/200))
  26. 50 QO = QU: PRINT "HIT BUTTON TO CONTINUE";
  27. 52 X =  PEEK( -16286): IF X < = 127  THEN  GOTO 52
  28. 54  PRINT : RETURN 
  29. 100  TEXT : HOME : REM  ** START POSITION
  30. 102  VTAB (8): PRINT "IN ORDER FOR SAFE TAKE OFF THE CONTROLS"
  31. 104  PRINT "MUST BE IN THE NEUTRAL POSITION."
  32. 106  PRINT "ROTATE CONTROL UNTIL & (YOUR ROCKET)"
  33. 108  PRINT "IS CENTERED. PUSH BUTTON TO LAUNCH"
  34. 110  HTAB (20): VTAB (2): PRINT "^": FOR P = 1 TO 500: NEXT P
  35. 112  HTAB (12 *( PDL(1)/80 -1.5) +20): VTAB (1): PRINT "&"
  36. 114  VTAB (1): PRINT "                                       ": REM  ** 39 BLANKS
  37. 116  VTAB (15):X =  PEEK( -16286): IF X < = 127  THEN  GOTO 112
  38. 118  GR : POKE 34,0: POKE 49234,0: INVERSE : FOR I = 21 TO 24: VTAB I: PRINT L$: NEXT I
  39. 120  FOR I = 1 TO 25: INVERSE : VTAB 24: PRINT L$;: NORMAL : HTAB 18: PRINT "L";: HTAB 24: PRINT "L": NEXT 
  40. 122 AA = 7:SC = 0:PO = 16:Z = 20:ZZ = 20
  41. 124  RETURN 
  42. 200  TEXT : HOME : REM  INITIALIZE GAME
  43. 202 RA$(0) = "CUB"
  44. 204 RA$(1) = "SENIOR CUB"
  45. 206 RA$(2) = "PILOT IN TRAINING"
  46. 208 RA$(3) = "LICENCED CIVILIAN"
  47. 210 RA$(4) = "QUALIFIED FIGHTER PILOT"
  48. 212 RA$(5) = "WING COMMANDER"
  49. 214 RA$(6) = "SQUADRON COMMANDER"
  50. 216 RA$(7) = "5 STAR GENERAL"
  51. 218 RA$(8) = "HAN SOLO"
  52. 220 T$ = "SPACE CANYON TRAINING COURSE":
  53. 222 U$ = "****************************"
  54. 224  VTAB 4: HTAB 20 - LEN(T$)/2: PRINT T$: HTAB 20 - LEN(U$)/2: PRINT U$
  55. 226  VTAB 8
  56. 228  PRINT : PRINT "YOU WILL BE AT THE CONTROLS OF A SPACE"
  57. 230  PRINT "CRAFT GOING DOWN A CANYON. YOU MUST"
  58. 232  PRINT "STOP THE CRAFT FROM HITTING THE WALLS"
  59. 234  PRINT "OF THE CANYON."
  60. 236  PRINT "BASED ON YOUR SKILL,ABILITY TO LEARN,"
  61. 238  PRINT "AND PERFORMANCE UNDER PRESSURE, YOU"
  62. 240  PRINT "WILL BE AWARDED RANK.": PRINT : PRINT 
  63. 242  PRINT "HIT  < SPACE BAR >  TO CONTINUE *";: HTAB 33: GET A$: PRINT A$
  64. 244  HOME :B = 6:YY = CR(B)
  65. 246 L$ = "": FOR I = 1 TO 39:L$ = L$ + CHR$(34): NEXT 
  66. 248  RETURN 
  67. 249  REM 
  68. 250  REM  ********************
  69. 251  REM  *                  *
  70. 252  REM  *    CANYON RUN    *
  71. 253  REM  *    ______ ___    *
  72. 254  REM  *                  *
  73. 255  REM  *   MODIFICATION   *
  74. 256  REM  *        OF        *
  75. 257  REM  *   SPACE CANYON   *
  76. 258  REM  *       FROM       *
  77. 259  REM  *    APPLE B.C.    *
  78. 260  REM  *      BY CRS      *
  79. 261  REM  *                  *
  80. 262  REM  ********************